home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Interfaces / UniversalInterfaces 2.1B1 / PInterfaces / CMPRComponent.p < prev    next >
Encoding:
Text File  |  1995-04-18  |  2.7 KB  |  114 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        CMPRComponent.p
  3.  
  4.      Contains:    ColorSync ProfileResponder Components Interface 
  5.  
  6.      Version:    Technology:    ColorSync 2.0
  7.                  Package:    Universal Interfaces 2.1ß1 in “MPW Prerelease” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs@applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. }
  19.  
  20. {$IFC UNDEFINED UsingIncludes}
  21. {$SETC UsingIncludes := 0}
  22. {$ENDC}
  23.  
  24. {$IFC NOT UsingIncludes}
  25.  UNIT CMPRComponent;
  26.  INTERFACE
  27. {$ENDC}
  28.  
  29. {$IFC UNDEFINED __CMPRCOMPONENT__}
  30. {$SETC __CMPRCOMPONENT__ := 1}
  31.  
  32. {$I+}
  33. {$SETC CMPRComponentIncludes := UsingIncludes}
  34. {$SETC UsingIncludes := 1}
  35.  
  36.  
  37. {$IFC UNDEFINED __TYPES__}
  38. {$I Types.p}
  39. {$ENDC}
  40. {    ConditionalMacros.p                                            }
  41.  
  42. {$IFC UNDEFINED __QUICKDRAW__}
  43. {$I Quickdraw.p}
  44. {$ENDC}
  45. {    MixedMode.p                                                    }
  46. {    QuickdrawText.p                                                }
  47.  
  48. {$IFC UNDEFINED __COMPONENTS__}
  49. {$I Components.p}
  50. {$ENDC}
  51.  
  52. {$IFC UNDEFINED __CMAPPLICATION__}
  53. {$I CMApplication.p}
  54. {$ENDC}
  55. {    Files.p                                                        }
  56. {        OSUtils.p                                                }
  57. {            Memory.p                                            }
  58. {    Printing.p                                                    }
  59. {        Errors.p                                                }
  60. {        Dialogs.p                                                }
  61. {            Windows.p                                            }
  62. {                Events.p                                        }
  63. {                Controls.p                                        }
  64. {                    Menus.p                                        }
  65. {            TextEdit.p                                            }
  66. {    CMICCProfile.p                                                }
  67.  
  68. {$PUSH}
  69. {$ALIGN MAC68K}
  70. {$LibExport+}
  71.  
  72. CONST
  73.     CMPRInterfaceVersion        = 0;
  74.  
  75. { Component function selectors }
  76.     kCMPRGetProfile                = 0;
  77.     kCMPRSetProfile                = 1;
  78.     kCMPRSetProfileDescription    = 2;
  79.     kCMPRGetIndexedProfile        = 3;
  80.     kCMPRDeleteDeviceProfile    = 4;
  81.  
  82.  
  83. FUNCTION CMGetProfile(pr: ComponentInstance; aProfile: CMProfileHandle; VAR returnedProfile: CMProfileHandle): CMError;
  84.     {$IFC NOT GENERATINGCFM}
  85.     INLINE $2F3C, 8, 0, $7000, $A82A;
  86.     {$ENDC}
  87. FUNCTION CMSetProfile(pr: ComponentInstance; newProfile: CMProfileHandle): CMError;
  88.     {$IFC NOT GENERATINGCFM}
  89.     INLINE $2F3C, 4, 1, $7000, $A82A;
  90.     {$ENDC}
  91. FUNCTION CMSetProfileDescription(pr: ComponentInstance; DeviceData: LONGINT; hProfile: CMProfileHandle): CMError;
  92.     {$IFC NOT GENERATINGCFM}
  93.     INLINE $2F3C, 8, 2, $7000, $A82A;
  94.     {$ENDC}
  95. FUNCTION CMGetIndexedProfile(pr: ComponentInstance; search: CMProfileSearchRecordHandle; VAR returnProfile: CMProfileHandle; VAR index: LONGINT): CMError;
  96.     {$IFC NOT GENERATINGCFM}
  97.     INLINE $2F3C, 12, 3, $7000, $A82A;
  98.     {$ENDC}
  99. FUNCTION CMDeleteDeviceProfile(pr: ComponentInstance; deleteMe: CMProfileHandle): CMError;
  100.     {$IFC NOT GENERATINGCFM}
  101.     INLINE $2F3C, 4, 4, $7000, $A82A;
  102.     {$ENDC}
  103.  
  104. {$ALIGN RESET}
  105. {$POP}
  106.  
  107. {$SETC UsingIncludes := CMPRComponentIncludes}
  108.  
  109. {$ENDC} {__CMPRCOMPONENT__}
  110.  
  111. {$IFC NOT UsingIncludes}
  112.  END.
  113. {$ENDC}
  114.